www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_modsoft.asp

    <!--#include file="conn.asp"-->
<!--#include file="check.asp" -->
<%
set rspaixu=server.createobject("adodb.recordset")
paixusql="select * from Tsm_soft order by paixu desc"
rspaixu.open paixusql,conn,1,1
if not rspaixu.eof then
thelastpaixu=rspaixu("paixu")+1
else
thelastpaixu=1
end if
rspaixu.close
set rspaixu=nothing

select case request("action")
	case "add"
	call add()
	case "addsave"
	call addsave()
	case "Modify"
	call Modify()
	case "Modifysave"
	call Modifysave()
end select
%>
<%
sub add()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.htm"-->
<br>
<table width="90%" height="25"  border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="myform" method="post" action="?action=addsave"><tr>
    <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>发 布 信 息</b></font></td>
  </tr>
  <tr>
    <td>
<table width="100%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" valign="middle" bgcolor="#FFFFFF">
    <td height="25" colspan="2">&nbsp;</td>
    </tr>
  <tr>
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">名称<%if en_switch=0 then%><%else%>(中)<%end if%>:</td>
    <td bgcolor="#F6F6F6"><input name="title" type="text" id="title" size="50" maxlength="50">
      <font color="#FF0000"> *</font>      </td>
  </tr>


  <tr style="display:none">
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">排序:</td>
    <td bgcolor="#F6F6F6"><input name="paixu" type="text" id="paixu" size="50" maxlength="50" value="<%=thelastpaixu%>">
      <font color="#FF0000"> *</font>      </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">上传:</td>
    <td bgcolor="#FFFFFF"><input name="Propics" type="text" id="Propics" size="40">
      <font color="#FF0000">* </font><br><IFRAME src="Upimage_soft.asp" name=head width=370 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td>
  </tr>
 
</table>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="35" align="center">
  <input type="submit" name="Submit" value="发布信息">
&nbsp;
  <input type="reset" name="Submit1" value=" 清 除 ">
&nbsp;
  <input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)">
    </td>
  </tr>
</table>
</td>
  </tr></form>
</table>

</body>
</html>
<%
end sub
%>
<%
sub addsave()

if trim(request("title"))="" or isEmpty(request("title"))=true then
call ShowAlert("名称不可为空,请输入名称!","")

ElseIf trim(request("paixu"))<>"" and IsNumeric(request("paixu"))=False Then
call ShowAlert("排序必须是数字!","")

ElseIf trim(request("Propics"))="" or isEmpty(request("Propics"))=true Then
call ShowAlert("上传不可为空,请上传!","")

Else

set rscheck=server.createobject("adodb.recordset")
checksql="select * from Tsm_soft where title='"&request("title")&"' and titlee='"&request("titlee")&"' and paixu="&request("paixu")&""
rscheck.open checksql,conn,1,1
if rscheck.eof then

set rs=server.createobject("adodb.recordset")
sql="select * from Tsm_soft"
rs.open sql,conn,1,3
rs.AddNew

if request("paixu")<>"" then
rs("paixu") = request("paixu")
else
rs("paixu") = 0
end if
rs("title") = request("title")
rs("titlee") = request("titlee")
rs("Content") = request("Content")
rs("Contente") = request("Contente")
rs("Propic") = request("Propic")
rs("Propics") = request("Propics")
rs("softtype") = request("softtype")
rs.Update
rs.Close 
set rs=nothing
end if
rscheck.close
set rscheck=nothing
conn.close
set conn=nothing

call ShowAlert("发布成功","Manage_adminsoft.asp")
end if
end sub
%>
<%
sub Modify()
%>
<%
id=request("id")
set RsEdit=server.createobject("adodb.recordset")
sqlEdit = "select * from Tsm_soft where id="& id
RsEdit.open sqlEdit,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.htm"--><br>
<table width="90%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
 <form name="myform" method="post" action="?action=Modifysave">
 <tr align="center" valign="middle">
    <td height="25" colspan="2" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 信 息</b></font></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">名称<%if en_switch=0 then%><%else%>(中)<%end if%>:</td>
    <td bgcolor="#F6F6F6"><input name="title" type="text" id="title" size="50" maxlength="50" value="<%=RsEdit("title")%>">
      <font color="#FF0000"> *</font>      </td>
  </tr>
 

  <tr style="display:none">
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">排序:</td>
    <td bgcolor="#F6F6F6"><input name="paixu" type="text" id="paixu" size="50" maxlength="50" value="<%=RsEdit("paixu")%>">
      <font color="#FF0000"> *</font>      </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">上传:</td>
    <td bgcolor="#FFFFFF"><input name="Propics" type="text" id="Propics" size="40" value="<%=RsEdit("Propics")%>">
      <font color="#FF0000">* </font><br><IFRAME src="Upimage_soft.asp" name=head width=370 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td>
  </tr>

  <tr bgcolor="#FFFFFF">
    <td colspan="2" align="center" valign="middle"><table width="100%" height="35"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
      <tr>
        <td height="35" align="center" valign="middle">
          <input name="id" type="hidden" id="id" value="<%=rsEdit("id")%>">
          <input type="submit" name="Submit" value="修改信息">
&nbsp;
      <input type="reset" name="Submit1" value=" 清 除 ">
&nbsp;
  <input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)">
      </td>
      </tr>
    </table></td>
    </tr></form>
</table>
</body>
</html>
<%
end sub
%>
<%
sub Modifysave()

if trim(request("title"))="" or isEmpty(request("title"))=true then
call ShowAlert("名称不可为空,请输入名称!","")

ElseIf trim(request("paixu"))<>"" and IsNumeric(request("paixu"))=False Then
call ShowAlert("排序必须是数字!","")

ElseIf trim(request("Propics"))="" or isEmpty(request("Propics"))=true Then
call ShowAlert("上传不可为空,请上传!","")

Else

set rs=server.createobject("adodb.recordset")
sql="select * from Tsm_soft where id="& request("id")
rs.open sql,conn,1,3

if request("paixu")<>"" then
rs("paixu") = request("paixu")
else
rs("paixu") = 0
end if
rs("title") = request("title")
rs("titlee") = request("titlee")
rs("Content") = request("Content")
rs("Contente") = request("Contente")
rs("Propic") = request("Propic")
rs("Propics") = request("Propics")
rs("softtype") = request("softtype")
rs.Update
rs.Close 
set rs=nothing
conn.close
set conn=nothing

call ShowAlert("修改成功!","Manage_adminsoft.asp")
end if
end sub
%>